unit U_Modelo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg, Mask, ToolEdit, CurrEdit,
  RXDBCtrl;

type
  TF_Modelo = class(TForm)
    Panel1: TPanel;
    BInserir: TBitBtn;
    BAlterar: TBitBtn;
    BGravar: TBitBtn;
    BCancelar: TBitBtn;
    BExcluir: TBitBtn;
    BBusca: TBitBtn;
    BPrimeiro: TBitBtn;
    BRetornar: TBitBtn;
    BAvancar: TBitBtn;
    BSaida: TBitBtn;
    BUltimo: TBitBtn;
    E_Codigo: TRxCalcEdit;
    procedure BSaidaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Modelo: TF_Modelo;

implementation

{$R *.dfm}

procedure TF_Modelo.BSaidaClick(Sender: TObject);
begin
    close
end;

end.
